home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / indexfil.sda / INDEX FILE (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  12KB  |  569 lines
  1. 10 REM ****** THE INDEX FILE ******
  2. 20 :
  3. 30 GOTO 50000
  4. 100 :
  5. 101 : REM POSITION CURSOR
  6. 102 :
  7. 110 POKE 781,L-1: POKE 782,C-1: POKE 783,0: SYS 65520: RETURN
  8. 200 :
  9. 201 : REM TOP AND BOTTOM LINE
  10. 202 :
  11. 210 IF RIGHT$(TL$,1)="[160]" THEN TL$=LEFT$(TL$,LEN(TL$)-1): GOTO 210
  12. 220 IF RIGHT$(TL$,1)=" " THEN TL$=LEFT$(TL$,LEN(TL$)-1): GOTO 220
  13. 230 PRINT "[147]"
  14. 240 :&T: L=1: C=(40-LEN(TL$))/2: GOSUB 100
  15. 250 PRINT "[154]" TL$ "[146]" ;
  16. 300 :
  17. 301 : REM BOTTOM LINE
  18. 302 :
  19. 310 :&B: L=25: C=(41-LEN(BL$))/2
  20. 320 IF LEFT$(BL$,1)="[129]" THEN C=C+1
  21. 330 GOSUB 100
  22. 340 PRINT "[154]" BL$ "[146]" ;
  23. 350 RETURN
  24. 400 :
  25. 401 : REM TEXT SCREEN
  26. 402 :
  27. 410 GOSUB 200
  28. 420 L=2: C=(40-LT)/2: GOSUB 100: PRINT "[153]<[154]" SC$(0) "[153]>[154]";
  29. 430 FOR I=1 TO 22
  30. 440 L=I+2: C=1: GOSUB 100: PRINT "[153]<[154]" SC$(I) "[153]>[154]";
  31. 450 NEXT I
  32. 460 RETURN
  33. 500 :
  34. 501 : REM WAIT FOR KEY
  35. 502 :
  36. 510 GET K$: IF K$="" THEN 510
  37. 520 RETURN
  38. 600 :
  39. 601 : REM PRINT RECORD
  40. 602 :
  41. 610 J=22
  42. 620 IF SC$(J)=LEFT$(SP$,38) THEN J=J-1: GOTO 620
  43. 630 OPEN 4,4,7
  44. 640 FOR I=0 TO J: PRINT#4,SC$(I): NEXT I
  45. 650 CLOSE 4
  46. 660 RETURN
  47. 700 :
  48. 701 : REM DELETE TEXT LINES AND INDEXES
  49. 702 :
  50. 705 UP=-1
  51. 710 SYS BA+39,RN%,LN%
  52. 715 IF LN%=0 THEN 765
  53. 720 LH=INT(LN%/256): LL=LN% AND 255
  54. 725 PRINT#15,"P"+CHR$(96+2)+CHR$(LL)+CHR$(LH)+CHR$(1)
  55. 730 GOSUB 800: IF ER THEN 790
  56. 735 PRINT#2,CHR$(254);
  57. 740 GOSUB 800: IF ER THEN 790
  58. 745 IF (LN%*47)-(INT(LN%*47/254)*254) >= 47 THEN 710
  59. 750 PRINT#15,"P"+CHR$(96+2)+CHR$(LL)+CHR$(LH)+CHR$(1)
  60. 752 GOSUB 800
  61. 755 INPUT#2,X1$
  62. 760 GOTO 710
  63. 765 SYS BA+42,RN%: SYS BA+30,RN%: SYS BA+15,RN%
  64. 770 UP=-1: RETURN
  65. 790 IF K$="" THEN RETURN
  66. 795 GOTO 710
  67. 800 :
  68. 801 : REM READ DISK STATUS
  69. 802 :
  70. 810 INPUT#15,ER,ET$,ET,ES
  71. 820 IF ER=0 THEN RETURN
  72. 830 BL$="[129]"+ET$+"[154]": GOSUB 300: GOSUB 500
  73. 840 RETURN
  74. 1000 :
  75. 1010 : REM MAIN MENU
  76. 1020 :
  77. 1030 BL$="[197]NTER SELECTION"
  78. 1040 GOSUB 200
  79. 1050 X1$="          "
  80. 1060 L=4: C=1: GOSUB 100
  81. 1070 PRINT X1$ "[158][211][154]  [158][211][197][193][210][195][200][154] FOR RECORDS
  82. 1080 [153] X1$ "SYSATNCONT  SYSATNSTR$STR$CONT NEW RECORDS
  83. 1090 PRINT X1$ "[158][204][154]  [158][204][201][211][212][154] TITLES
  84. 1100 [153] X1$ "SYS(null)CONT  SYS(null)(null)RIGHT$(null)(null)CONT TITLES
  85. 1110 PRINT X1$ "[158][195][154]  [196]ISPLAY FILE [158][195][193][208][193][195][201][212][217][154]
  86. 1120 [153] X1$ "SYSASCCONT  (null)WITCH TO ANOTHER SYSASCRIGHT$(null)VALCONT
  87. 1130 PRINT X1$ "[158][206][154]  [195]REATE [158][206][197][215][154] FILE
  88. 1140 [153] X1$ "SYS(null)CONT  SYS(null)VALPEEK(null)RIGHT$(null)STR$CONT INDEX
  89. 1150 PRINT X1$ "[158][197][154]  [158][197][216][201][212][154] PROGRAM
  90. 1160 L[178]12: C[178]1: [141] 100
  91. 1170 [153] "  PRINTORTAN^CONT"
  92. 1180 [153] "  PRINT(null)CONT PRINT(null)CONT"
  93. 1190 [153] "  PRINT/TANEXPCONT"
  94. 1200 L[178]13: C[178]4
  95. 1210 SL$[178]" "
  96. 1220 [151] 2,1: [141] 500: [151] 2,0
  97. 1230 [139] K$[178]"" [167] 1000
  98. 1240 [139] K$[178]CR$ [167] 1270
  99. 1250 [139] K$[179]"A" [176] K$[177]"Z" [167] 1220
  100. 1260 SL$[178][199]([198](K$)[176]128): [141] 100: [153] SL$;: [137] 1220
  101. 1270 [129] SL[178]1 [164] 9
  102. 1280 [139] SL$ [178] [202]("(null)ATN(null)(null)LENASC(null)(null)VAL",SL,1) [167] 1310
  103. 1290 [130] SL
  104. 1300 [137] 1160
  105. 1310 [139] FO [167] 1330
  106. 1320 [139] SL[179]6 [176] SL[178]8 [167] BL$[178]"FORASCILE NOT OPENCONT": [141] 300: [137] 1160
  107. 1330 [145] SL [141] 2000,7000,8000,9000,11000,12000,13000,14000,15000
  108. 1340 [137] 1000
  109. 2000 :
  110. 2001 : [143] SEARCH SCREEN
  111. 2002 :
  112. 2010 [129] I[178]0 [164] 11: KW$(I)[178][200](SP$,LK): [130] I
  113. 2020 X1$[178]"(null)VALATN(null)LENLEFT$CLOSEASC(null)(null)CLOSE(null)VALLEN(null)(null)STR$(null)"
  114. 2025 BL$[178]"VALNTER KEYWORDS": [141] 200
  115. 2030 L[178]3: C[178](40[171][195](X1$))[173]2: [141] 100
  116. 2040 [153] "SYS" X1$ "CONT": [153]
  117. 2050 X1$[178]"OR": X2$[178]"TANTAN": X3$[178]"^": X4$[178]"PRINT(null)CONTSYSATNCONTSYS(null)CONTSYSSTR$CONT"
  118. 2055 X[178]LK[173]2: Y[178]LK[171]X
  119. 2060 [129] I[178]0 [164] 2
  120. 2070 [153] "PRINT       " X1$ [200](LI$,X) X2$ [200](LI$,Y) X3$
  121. 2080 [129] J[178]0 [164] 3
  122. 2090 [153] "       " [202](X4$,J[172]3[170]1,3) "STOP<CONT" KW$(I[172]4[170]J) "STOP>PRINT(null)"
  123. 2100 [130] J
  124. 2110 X1$[178]"-": X2$[178]"SYS(null)(null)PRINT": X3$[178]"<"
  125. 2120 [130] I
  126. 2130 X1$[178]"/": X2$[178]"TANTAN": X3$[178]"EXP"
  127. 2140 [153] "       " X1$ [200](LI$,X) X2$ [200](LI$,Y) X3$ "CONT"
  128. 2160 [129] I[178]0 [164] 11
  129. 2170 SC$(I)[178][200](SP$,LK)
  130. 2180 [130] I
  131. 2190 [151] 144,0: [151] 2,2: &E(0): [151] 2,0
  132. 2200 [139] ST[178]1 [167] [142]
  133. 2205 [129] I[178]0 [164] 11: KW$(I)[178]SC$(I): [130] I
  134. 2210 [129] K[178]0 [164] MW: H1%(K)[178]0: [130] K
  135. 2220 [129] I[178]0 [164] 8 [169] 4
  136. 2230 [129] K[178]0 [164] MW: H2%(K)[178][171]1: [130] K
  137. 2240 NB[178]0
  138. 2250 [129] J[178]0 [164] 3
  139. 2260 [139] SC$(I[170]J)[178][200](SP$,LK) [167] 2360
  140. 2270 NB[178]1
  141. 2280 [158] BA[170]12,SC$(I[170]J),RN%
  142. 2290 [139] RN%[178]0 [167] 2400
  143. 2300 [129] K[178]0 [164] MW: H3%(K)[178]0: [130] K
  144. 2310 RW[178][181](RN%[173]16): RB[178]B%(RN% [175] 15)
  145. 2320 H3%(RW)[178]H3%(RW) [176] RB
  146. 2330 [158] BA[170]18,RN%
  147. 2340 [139] RN%[179][177]0 [167] 2310
  148. 2350 [129] K[178]0 [164] MW: H2%(K)[178]H2%(K) [175] H3%(K): [130] K
  149. 2360 [130] J
  150. 2370 [139] NB[178]0 [167] 2400
  151. 2380 NH[178]1
  152. 2390 [129] K[178]0 [164] MW: H1%(K)[178]H1%(K) [176] H2%(K): [130] K
  153. 2400 [130] I
  154. 2420 NH[178]0
  155. 2430 [129] I[178]0 [164] MW
  156. 2440 [139] H1%(I)[178]0 [167] 2500
  157. 2450 [129] J[178]0 [164] 15
  158. 2460 [139] (H1%(I) [175] B%(J))[178]0 [167] 2490
  159. 2470 NH[178]NH[170]1
  160. 2480 H%(NH) [178] I[172]16 [170] J
  161. 2490 [130] J
  162. 2500 [130] I
  163. 2510 [139] NH[178]0 [167] BL$[178]"FOR(null)O MATCHING RECORDS FOUNDCONT": [141] 300: [137] 2160
  164. 2520 [139] NH[178]1 [167] RN%[178]H%(1): [141] 4000: [137] 2020
  165. 2530 [141] 3000: [137] 2020
  166. 3000 :
  167. 3010 : [143] MULTIPLE HIT SCREEN
  168. 3020 :
  169. 3030 HN[178]1
  170. 3040 [139] SL[178]1 [167] X1$[178]"(null)(null)(null)(null)RIGHT$(null)(null)VAL (null)VALLEN(null)(null)STR$(null) ASC(null)(null)(null)STR$"
  171. 3041 [139] SL[178]3 [167] X1$[178]"(null)VALLEN(null)(null)STR$ (null)RIGHT$(null)(null)VAL(null)"
  172. 3050 BL$[178]"(null)ELECT RECORD"
  173. 3060 [141] 200
  174. 3070 L[178]3: C[178](40[171][195](X1$))[173]2: [141] 100
  175. 3080 [153] "SYS" X1$ "CONT": [153]
  176. 3090 FH[178]HN
  177. 3110 [158] BA[170]24,H%(HN),X2$
  178. 3120 X3$[178][202]([196](HN),2,3)
  179. 3130 [153] "SYS" [200](SP$,3[171][195](X3$)) X3$ ":CONT " X2$
  180. 3140 [153]
  181. 3160 [139] HN[179]FH[170]8 [175] HN[179]NH [167] HN[178]HN[170]1: [137] 3110
  182. 3170 L[178]23: C[178]1: [141] 100
  183. 3180 [153] "PRINT(CONT   PRINT)CONT"
  184. 3190 [139] NH[179][178]9 [167] 3230
  185. 3200 L[178]23: C[178]7: [141] 100
  186. 3210 [139] HN[179]NH [167] [153] "PRINT(null)RESS ASC1 KEY FOR MORECONT"
  187. 3220 [139] HN[178]NH [167] [153] "PRINT(null)RESS ASC1 KEY TO START OVERCONT"
  188. 3230 SC$(0)[178][200](SP$,3)
  189. 3240 [151] 144,0: [151] 2,4: &F(0): [151] 2,0
  190. 3250 [139] ST[178]0 [167] 3300
  191. 3260 [139] ST[178]1 [167] [142]
  192. 3270 [139] NH[179]9 [176] ST[179][177]2 [167] 3170
  193. 3280 [139] HN[177][178]NH [167] HN[178]1: [137] 3060
  194. 3290 HN[178]HN[170]1: [137] 3060
  195. 3300 I [178] [197](SC$(0))
  196. 3310 [139] I[179]1 [176] I[177]NH [167] [141] 300: [137] 3230
  197. 3320 RN%[178]H%(I): [141] 4000: HN[178]FH: [137] 3040
  198. 4000 :
  199. 4010 : [143] SINGLE HIT SCREEN
  200. 4020 :
  201. 4030 SC$(0)[178][200](SP$,LT)
  202. 4040 [129] I[178]1 [164] 22:SC$(I)[178][200](SP$,38): [130] I
  203. 4050 LN%[178]0
  204. 4060 [158] BA[170]39,RN%,LN%
  205. 4070 [139] LN%[178]0 [167] 4170
  206. 4080 LH[178][181](LN%[173]256): LL[178]LN% [175] 255
  207. 4090 [152]15,"P"[170][199](96[170]2)[170][199](LL)[170][199](LH)[170][199](1)
  208. 4100 [141] 800: [139] ER [167] 4530
  209. 4110 [132]2,X1$,X2$,X3$
  210. 4120 [141] 800: [139] ER [167] 4530
  211. 4130 [139] [197](X1$)[179][177]RN% [167] 4500
  212. 4140 I[178][197](X2$): [139] I[177]22 [167] 4510
  213. 4150 SC$(I) [178] X3$
  214. 4160 [137] 4060
  215. 4170 BL$[178]"ASC3 TO PRINT,ASC5 TO MODIFY,ASC8 TO DELETE"
  216. 4180 [141] 400
  217. 4190 [151] 2,5: [141] 500: [151] 2,0
  218. 4200 [139] K$[178]"" [167] [142]
  219. 4210 [139] K$[178]"DIM" [167] [141] 600: [137] 4190
  220. 4220 [139] K$[178]"READ" [167] 5000
  221. 4230 [139] K$[178]"RESTORE" [167] [141] 700: [142]
  222. 4240 [137] 4190
  223. 4500 BL$[178]"FORRIGHT$(null)STR$VAL(null)CLOSERIGHT$(null)CLOSELEN(null)(null)(null)(null)(null)(null)VALSTR$CONT": [137] 4520
  224. 4510 BL$[178]"FOR(null)VAL(null)(null) ASCRIGHT$(null)VAL RIGHT$(null) LEN(null)(null)(null)(null)(null)(null)VALSTR$CONT"
  225. 4520 [141] 300: [141] 500
  226. 4530 [139] K$[178]"" [167] [142]
  227. 4540 [137] 4060
  228. 5000 :
  229. 5010 : [143] MODIFY RECORD
  230. 5020 :
  231. 5030 BL$[178]"(null)ODIFY TEXT"
  232. 5040 [141] 400
  233. 5050 [151] 144,0: [151] 2,5: &E(0): [151] 2,0
  234. 5060 [139] ST[178]1 [167] [142]
  235. 5070 [141] 700
  236. 5080 [151] RA[170]1[170]RN%,1
  237. 5090 [141] 10000
  238. 5100 [139] ER [167] 5500
  239. 5110 [142]
  240. 5500 [139] K$[178]"" [167] [142]
  241. 5510 [137] 5030
  242. 7000 :
  243. 7010 : [143] ADD NEW RECORD
  244. 7020 :
  245. 7030 SC$(0) [178] [200](SP$,LT)
  246. 7040 [129] I[178]1 [164] 22
  247. 7050 SC$(I) [178] [200](SP$,38)
  248. 7060 [130] I
  249. 7070 BL$[178]"VALNTER TITLE AND TEXT"
  250. 7080 [141] 400
  251. 7090 [151] 144,0: [151] 2,3: &E(0): [151] 2,0
  252. 7100 [139] ST[178]1 [167] [142]
  253. 7105 RN%[178]0
  254. 7110 [141] 10000
  255. 7120 UP[178][171]1
  256. 7130 [139] ER [167] 7500
  257. 7140 [137] 7000
  258. 7500 [139] K$[178]"" [167] [142]
  259. 7510 [137] 7070
  260. 8000 :
  261. 8010 : [143] LIST TITLES
  262. 8020 :
  263. 8030 NH[178]0
  264. 8040 RN%[178]0
  265. 8050 [158] BA[170]27,RN%
  266. 8060 [139] RN%[178]0 [167] 8100
  267. 8070 NH[178]NH[170]1
  268. 8080 H%(NH)[178]RN%
  269. 8090 [137] 8050
  270. 8100 [139] NH[178]0 [167] [142]
  271. 8110 [137] 3000
  272. 9000 :
  273. 9010 : [143] PRINT TITLES
  274. 9020 :
  275. 9030 [159] 4,4,7
  276. 9040 NL[178]99: HN[178]0
  277. 9050 RN%[178]0
  278. 9060 [158] BA[170]27,RN%
  279. 9070 [139] RN%[178]0 [167] [160] 4: [142]
  280. 9080 HN[178]HN[170]1
  281. 9090 [158] BA[170]24,RN%,X1$
  282. 9100 X2$[178][202]([196](HN),2,3)
  283. 9110 [139] NL[179]60 [167] 9140
  284. 9120 [139] NL[179][177]99 [167] [129] I[178]NL [164] 66: [152]4: [130] I
  285. 9130 [152]4,TL$: [152]4: NL[178]2
  286. 9140 [152]4,[200](SP$,3[171][195](X2$)) X2$ ": " X1$: [152]4
  287. 9150 NL[178]NL[170]2
  288. 9160 [137] 9060
  289. 10000 :
  290. 10010 : [143] STORE RECORD
  291. 10020 :
  292. 10030 UP[178][171]1
  293. 10040 [139] RN%[178]0 [167] [158] BA[170]33,RN%: [139] RN%[178]0 [167] 10510
  294. 10050 [129] I[178]0 [164] 22
  295. 10060 [139] I[179][177]0 [167] 10100
  296. 10070 [139] SC$(I)[178][200](SP$,LT) [167] 10500
  297. 10080 [158] BA[170]21,SC$(I),RN%
  298. 10090 [137] 10110
  299. 10100 [139] SC$(I)[178][200](SP$,38) [167] 10210
  300. 10110 [158] BA[170]36,RN%,LN%: [139] LN%[178]0 [167] 10510
  301. 10120 LH[178][181](LN%[173]256): LL[178]LN% [175] 255
  302. 10130 [152]15,"P"[170][199](96[170]2)[170][199](LL)[170][199](LH)[170][199](1)
  303. 10140 [141] 800: [139] ER [167] 10530
  304. 10150 X1$[178][202]([196](RN%[170]1000),3,3)
  305. 10160 X2$[178][202]([196](I[170]100),3,2)
  306. 10170 [152]2,X1$[170]CR$[170]X2$[170]CR$[170]QT$[170]SC$(I)[170]QT$ ;
  307. 10180 [141] 800: [139] ER [167] 10530
  308. 10182 [139] (LN%[172]47)[171]([181](LN%[172]47[173]254)[172]254) [177][178] 47 [167] 10190
  309. 10184 [152]15,"P"[170][199](96[170]2)[170][199](LL)[170][199](LH)[170][199](1)
  310. 10185 [141] 800
  311. 10186 [132]2,X1$
  312. 10190 [158] BA[170]9,SC$(I),RN%
  313. 10200 [139] ST[179][177]0 [167] 10510
  314. 10210 [130] I
  315. 10220 ER[178]0
  316. 10230 [142]
  317. 10500 BL$[178]"FOR(null)ITLE LINE IS REQUIREDCONT": [137] 10520
  318. 10510 BL$[178]"FORASCRIGHT$(null)VAL RIGHT$(null) ASC(null)(null)(null)CONT"
  319. 10520 ER[178]1: [141] 300: [141] 500
  320. 10530 [139] RN%[179][177]0 [167] [141] 700
  321. 10540 [142]
  322. 11000 :
  323. 11010 : [143] DISPLAY FILE CAPACITY
  324. 11020 :
  325. 11030 [158] BA[170]45,KW%,RC%,LN%
  326. 11040 BL$[178]"(null)RESS ANY KEY"
  327. 11050 [141] 200
  328. 11060 L[178]3: C[178]14: [141] 100
  329. 11070 [153] "PRINTASCRIGHT$(null)VALCLOSELENATN(null)ATNLENRIGHT$(null)(null)CONT";
  330. 11080 L[178]5: C[178]5: [141] 100
  331. 11090 [153] "SYS" KW% "PRINTKEYWORDS USED OUT OFSYS" MK "CONT"
  332. 11100 L[178]7: [141] 100
  333. 11110 [153] "SYS" RC% "PRINTRECORDS USED OUT OFSYS" MR "CONT"
  334. 11120 L[178]9: [141] 100
  335. 11130 [153] "SYS" LN% "PRINTTEXT LINES USED OUT OFSYS" ML "CONT"
  336. 11140 [141] 500
  337. 11150 [142]
  338. 12000 :
  339. 12010 : [143] SWITCH FILES
  340. 12020 :
  341. 12030 [141] 16000
  342. 12040 [141] 17000
  343. 12050 [142]
  344. 13000 :
  345. 13010 : [143] CREATE FILE
  346. 13020 :
  347. 13030 [141] 16000
  348. 13040 TL$[178]" ": BL$[178]"      "
  349. 13050 [141] 200
  350. 13060 L[178]8 : C[178]6: [141] 100
  351. 13070 [153] "SYSASCILE NAME <CONT                 SYS>CONT"
  352. 13080 BL$[178]"VALNTER FILE NAME"
  353. 13090 [141] 300
  354. 13100 SC$(0)[178][200](SP$,17)
  355. 13110 [151] 144,0: [151] 2,6: &F(0): [151] 2,0
  356. 13120 [139] ST[178]1 [167] [141] 17000: [142]
  357. 13140 [139] SC$(0)[178][200](SP$,17) [167] 13110
  358. 13150 L[178]10: C[178]6: [141] 100
  359. 13160 [153] "SYSSTR$ISK RIGHT$STR$   <CONT  SYS>CONT"
  360. 13170 BL$[178]"VALNTER DISK RIGHT$STR$ CODE"
  361. 13180 [141] 300
  362. 13190 SC$(1)[178][200](SP$,2)
  363. 13200 [151] 144,0: [151] 2,6: &F(1): [151] 2,0
  364. 13210 [139] ST[178]1 [167] [141] 17000: [142]
  365. 13225 [139] SC$(1)[178][200](SP$,2) [167] 13200
  366. 13230 L[178]12: C[178]6: [141] 100
  367. 13240 [153] "SYSRIGHT$NSERT BLANK DISKCONT"
  368. 13250 L[178]14: C[178]6 : [141] 100
  369. 13260 [153] "SYS(null)RESS ANY KEY WHEN READYCONT"
  370. 13270 [141] 500
  371. 13280 [139] K$[178]"" [167] [142]
  372. 13290 L[178]12: C[178]1: [141] 100: [153] SP$
  373. 13300 L[178]14: C[178]1: [141] 100: [153] SP$
  374. 13310 BL$[178]"ASCORMATTING DISK": [141] 300
  375. 13320 [152]15,"N0:" SC$(0) "," SC$(1)
  376. 13330 [141] 800: [139] ER [167] 13500
  377. 13350 BL$[178]"LENREATING TEXT FILE": [141] 300
  378. 13360 [159] 2,8,2,"TEXT,L,"[170][199](47)
  379. 13362 LH[178][181](ML[173]256): LL[178]ML [175] 255
  380. 13364 [152]15,"P"[170][199](96[170]2)[170][199](LL)[170][199](LH)[170][199](1)
  381. 13366 [152]2,[199](255);
  382. 13368 [160] 2
  383. 13370 [159] 2,8,2,"TEXT"
  384. 13380 FO[178][171]1
  385. 13390 TL$[178]SC$(0)
  386. 13395 BL$[178]"LENREATING INDEX FILE": [141] 200
  387. 13396 L[178]3: C[178]1: [141] 100
  388. 13400 [158] BA[170]0: UP[178][171]1
  389. 13402 [152]15,"S0:TITLES"
  390. 13404 [152]15,"S0:KEYWORDS"
  391. 13406 [152]15,"S0:LINES"
  392. 13408 [152]15,"S0:RECORDS"
  393. 13410 [158] BA[170]6
  394. 13415 [153]
  395. 13420 [141] 800: [139] ER [167] 13700
  396. 13430 UP[178]0
  397. 13440 TL$[178]SC$(0)
  398. 13450 [142]
  399. 13500 [139] K$[178]"" [167] [142]
  400. 13510 [137] 13230
  401. 13600 [160] 2
  402. 13610 [139] K$[178]"" [167] [142]
  403. 13620 [137] 13350
  404. 13700 [139] K$[178]"" [167] [142]
  405. 13710 [137] 13390
  406. 14000 :
  407. 14010 : [143] REBUILD INDEX
  408. 14020 :
  409. 14030 BL$[178]"(null)EBUILDING INDEX": [141] 200
  410. 14040 L[178]12: C[178]14
  411. 14050 [158] BA[170]0: LP[178]0: RP[178]0
  412. 14060 [129] I[178]1 [164] ML: LN%[178]I
  413. 14070 [141] 100: [153] "SYS(null)EXT LINECONT" I
  414. 14080 LH[178][181](I[173]256): LL[178]I [175] 255
  415. 14090 [152]15,"P"[170][199](96[170]2)[170][199](LL)[170][199](LH)[170][199](1)
  416. 14100 [141] 800
  417. 14110 [139] ER [167] 14500
  418. 14120 [132]2,X1$,X2$,X3$
  419. 14124 [141] 800
  420. 14125 [139] ER [167] 14500
  421. 14126 [139] X1$[178][199](255) [167] 14200
  422. 14140 RN%[178][197](X1$): [139] RN%[179][178]0 [176] RN%[177]MR [167] 14190
  423. 14142 [139] [197](X2$) [179][177] 0 [167] 14160
  424. 14144 [158] BA[170]24,RN%,X4$
  425. 14146 [139] X4$[179][177]"" [167] 14190
  426. 14150 [158] BA[170]21,X3$,RN%
  427. 14160 [158] BA[170]9,X3$,RN%
  428. 14170 [151] RA[170]1[170]RN%,1: [139] RN%[177]RP [167] RP[178]RN%
  429. 14180 [151] LA[170]1[170]LN%,RN%: [139] LN%[177]LP [167] LP[178]LN%
  430. 14190 [130] I
  431. 14200 [151] RA,RP[170]2
  432. 14210 [151] LA,(LP[170]2) [175] 255
  433. 14220 [151] LA[170]1,[181]((LP[170]2)[173]256)
  434. 14230 UP[178][171]1
  435. 14240 [141] 16000
  436. 14250 BL$[178]"(null)PENING TEXT FILE": [141] 300
  437. 14260 [159] 2,8,2,"TEXT"
  438. 14270 [141] 800: [139] ER [167] 14600
  439. 14280 FO[178][171]1
  440. 14290 [137] 11000
  441. 14500 [139] K$[178]"" [167] 14200
  442. 14510 BL$[178]"LENONTINUING": [141] 300: [137] 14190
  443. 14600 [160] 2
  444. 14610 [139] K$[178]"" [167] [142]
  445. 14620 [137] 14250
  446. 15000 :
  447. 15010 : [143] EXIT
  448. 15020 :
  449. 15030 [141] 16000
  450. 15040 [153] "LOAD"
  451. 15050 [128]
  452. 16000 :
  453. 16010 : [143] CLOSE FILE
  454. 16020 :
  455. 16030 [139] [168] FO [167] 16090
  456. 16040 BL$[178]"LENLOSING TEXT FILE": [141] 200
  457. 16050 [160] 2
  458. 16060 FO[178]0
  459. 16070 [141] 800
  460. 16090 [139] [168] UP [167] 16140
  461. 16100 BL$[178]"(null)AVING INDEX DATA": [141] 200
  462. 16110 L[178]3: C[178]1: [141] 100
  463. 16112 [152]15,"S0:TITLES"
  464. 16114 [152]15,"S0:KEYWORDS"
  465. 16116 [152]15,"S0:LINES"
  466. 16118 [152]15,"S0:RECORDS"
  467. 16120 [158] BA[170]6
  468. 16125 [153]
  469. 16130 [141] 800
  470. 16140 UP[178]0
  471. 16150 [142]
  472. 17000 :
  473. 17010 : [143] OPEN FILE
  474. 17020 :
  475. 17030 TL$[178]" ": BL$[178]"      "
  476. 17040 [141] 200
  477. 17050 L[178]12: C[178]13: [141] 100
  478. 17060 [153] "SYSRIGHT$NSERT DATA DISKCONT"
  479. 17070 L[178]14: C[178]9: [141] 100
  480. 17080 [153] "SYS(null)RESS ANY KEY WHEN READYCONT"
  481. 17090 [141] 500
  482. 17100 [139] K$[178]"" [167] [142]
  483. 17110 L[178]12: C[178]1: [141] 100: [153] SP$
  484. 17120 L[178]14: C[178]1: [141] 100: [153] SP$
  485. 17130 [152]15,"I0:";
  486. 17140 [141] 800: [139] ER [167] 17500
  487. 17150 [159] 1,8,0,"$0"
  488. 17160 [141] 800: [139] ER [167] 17500
  489. 17170 [161]#1,X1$
  490. 17180 [139] X1$[179][177]QT$ [167] 17170
  491. 17190 TL$[178]""
  492. 17200 [161]#1,X1$
  493. 17210 [139] X1$[179][177]QT$ [167] TL$[178]TL$[170]X1$: [137] 17200
  494. 17220 [160] 1
  495. 17230 BL$[178]"(null)PENING TEXT FILE": [141] 200
  496. 17240 [159] 2,8,2,"TEXT"
  497. 17250 [141] 800: [139] ER [167] 17500
  498. 17260 FO[178][171]1
  499. 17270 BL$[178]"(null)OADING INDEX DATA": [141] 300
  500. 17280 L[178]3: C[178]1: [141] 100
  501. 17290 [158] BA[170]0: [158] BA[170]3
  502. 17300 [141] 800: [139] ER [167] 17600
  503. 17310 UP[178]0
  504. 17320 [142]
  505. 17500 [160] 2
  506. 17505 [139] K$[178]"" [167] [142]
  507. 17510 [137] 17130
  508. 17600 [160] 2
  509. 17610 [139] K$[178]"" [167] [142]
  510. 17620 [137] 17270
  511. 50000 :
  512. 50010 : [143] INITIALIZATION
  513. 50020 :
  514. 50030 [139] I[179][177]0 [167] 50140
  515. 50040 I[178]1
  516. 50050 [153] "LOAD" [199](14) [199](8)
  517. 50060 [151] 53280,12: [151] 53281,0
  518. 50070 L[178]10: C[178]14: [141] 100
  519. 50080 [153] "SYS(null)LEFT$VAL RIGHT$(null)STR$VAL(null) ASCRIGHT$(null)VALCONT"
  520. 50090 L[178]13: C[178]15: [141] 100
  521. 50100 [153] "PRINTBY MID$EFF PEEKEANCONT"
  522. 50110 L[178]15: C[178]12: [141] 100
  523. 50120 [153] "PRINT(null)AN ASCRANCISCO, LENA.CONT"
  524. 50122 L[178]17: C[178]17: [141] 100
  525. 50124 [153] "PRINT01/26/84CONT"
  526. 50130 [147] "SCREEN",8,1
  527. 50140 [139] I[179][177]1 [167] 50162
  528. 50150 I[178]2
  529. 50160 [147] "FILE.BIN",8,1
  530. 50162 [139] I[179][177]2 [167] 50170
  531. 50164 I[178]3
  532. 50166 [147] "HELP",8,1
  533. 50170 [158] 49152: &C,"CONTPRINT#STOP": [153]"LOAD" [199](14) [199](8): &S
  534. 50180 BA[178]16640
  535. 50190 LH[178][181](BA[173]256): LL[178]BA [175] 255
  536. 50200 [151] 51,LL: [151] 52,LH
  537. 50210 [151] 53,LL: [151] 54,LH
  538. 50220 [151] 55,LL: [151] 56,LH: [156]
  539. 50230 BA[178]16640
  540. 50235 [151] 2,0
  541. 50240 SP$[178]"                                               "
  542. 50250 LI$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  543. 50260 CR$[178][199](13): QT$[178][199](34)
  544. 50270 LK[178]20: LT[178]34: MR[178]200: MW[178][181](MR[173]16): ML[178]2923: MK[178]800: LA[178]45824: RA[178]48896
  545. 50280 [134] SC$(22),KW$(11),H%(MR),H1%(MW),H2%(MW),H3%(MW),B%(15)
  546. 50290 B%(0)[178]1: B%(15)[178][171]32768
  547. 50300 [129] I[178]1 [164] 14: B%(I)[178]B%(I[171]1)[172]2: [130] I
  548. 50310 [159] 15,8,15
  549. 50320 FO[178]0: UP[178]0
  550. 50330 [141] 17000
  551. 50340 [137] 1000
  552. 60000 :
  553. 60010 : [143] *** PROGRAM RENUMBER ****
  554. 60020 :
  555. 60030 A[178]2049:B[178]256:[153]"LO/HI LINES, NEW START, INCREMENT":[133] L,H,S,I
  556. 60040 [129] R[178]0 [164] 5E4: [139] [194](A[170]2)[170]B[172][194](A[170]3)[179]L [167] A[178][194](A)[170]B[172][194](A[170]1):[130]
  557. 60050 [129] R[178]0 [164] 5E4: X[178]S[170]R[172]I: [139] A[178]0 [176] [194](A[170]2)[170]B[172][194](A[170]3)[177]H [167] [128]
  558. 60060 [151] A[170]3,[181](X[173]B): [151] A[170]2,X[171]([181](X[173]B))[172]B: A[178][194](A)[170]B[172][194](A[170]1): [130]
  559. 60070 [128]
  560. 61000 :
  561. 61010 : [143] *** PROGRAM LIST ***
  562. 61020 :
  563. 61030 [159] 4,4,6
  564. 61040 [152]4,[199](27)[199](78)[199](6);
  565. 61050 [160] 4: [159] 4,4,0
  566. 61060 [152]4,[199](27)[199](70)[199](1);
  567. 61070 [160] 4: [159] 4,4,4
  568. 61080 [157]4: [155]: [128]
  569.